It vill be noted that the dam divides the bed into a first and 

second segment, vhich are in reverse order, as will be seen in FIG. l4 and 15. 

This babbling movement may be visualized (FIG. 15) as a data window bounded by 

twin dams D travelling along the stream. Certain elements accidentally fill 

the bed-end positions CF, CH, NF, NH as the window moves. 

The principle is thus one of incremental movement of the stream 

through the bed in either direction, with the contents of the bed unceasingly 

presenting valid and identifiable contents to the display system DI P. The 

pattern of this movement will best be understood by consideration of FIGS. 

14 and 15, where a "window w of stream St is represented in two discontiguous 

sections l 8 *’ and 2 d of Bed B. Filling position F and incrementing register 

representing divider D ha? the effect of moving the window one stream position. 

This is babble as in FIG. 14 BWD and FWD. 

It will be noted in FIG. 15 that topologically positions 

CF and CH do not change until, babble reaches them. 

Babble, as in FIG. l4, is thus the bed operation of replacing 

successive elements or grout)s of elements from the divider in either direction, 

moving (incrementing) the divider for each such element. The correspondin' 

and simultaneous stream operation, as in FIG. 15, we call roving . Roving is the 

or multistream (or stream 

motion of a current stream/window along a stream/cluster) by continuous 
incrementss Babble and roving are the same operation considered from two 
points of view; babble is the mechanism by which roving is made possible 
without clearing and rearranging display lists in a core memory. 

The roving operation may also be considered from the pd>int of 
view of the enfilade, as in FIG. 7 f where the "core window" consists of the 
contents of the bed. Thus to the envilade, babble and roving are successive 

>> 

sideways motions to data left and right. 
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This roving feature is obviously useful,Especially for data 
streams of information where sliding sections may be of interest to a viewer. 


Text, for 


instance, where a consecutive 1000 characters present a readable 


subset of a larger written work. The roving feature 


allows this subset 


to be moved along the text stream while maintaining continuous visibility to 
the viewer of the changing display. Picture-drawing data may also be 

employed in such sliding data windows, to similarly useful effect; so may 
statistical data where "moving averages" .are _of use. 


DISCONTIGUOUS BEDS AND BUFFERS 

A generalized bed structure is desirable when this invention is 
to be used for a variety of purposes, rather than Just for a single purpose , v 
such as the Parallel Textface. When the system is to be used for the general» 
communication of text-and-picture complexes, a flexible means of rearranging 
and re-sizing Beds is required. This we accomplish by means of the 
Discontiguous Bed or Scatterbed. 

A scatterbed is a distributed bed whose parts occupy unconnected 
sections of core, but which may be babbled as if it were in one piece. 


Since "storage bank zero" in the crum structure refers to 
core memory DCM, the bed's location is then specified as a series of crums. 
The bed "begins" with the section of core memory specified by the first crum, 
continues into the section of core memory specified by the second crum, and 
goes on in this fashion for as many crums as are needed. The divider is 
Stored in rapid-access memory as before. 
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In this case the Babbling algorithms must change in one respect: 
rather than check for bed overflow in each succeeding element being babbled, 
they check for overflow of the current section. 

This method has the obvious advantage of permitting Beds to be 
readily re-sized as needed. In addition, it retains the addressing scheme 
already introduced to implement the crum structure and enfilade. 
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MULTIDIMENSIONAL BEDS 

The roving operation is not limited to one-dimensional data, as 
the superficially one-dimensional stream structure would suggest. Rather, it 
may be extended without difficulty to two-dimensional, three-dimensional and 
multidimensional data forms. That is, the stream, bed and babble systems 
expand readily to the representation of two-dimensional and higher-dimensional 
structures, providing multidimensional views of these structures in core, 
incrementally movable through the multidimensional structures with constant 
core addressing. -o 

New dividers, which we may call n-dividers, specify the dam 
positions in the separate dimensions: the 1-divider in dimension 1, 

... the n-divider in dimension n. However, the overall view can no longer be 
incrementally babbled as before. Only one dimension may be babbled incremental !r 
and contiguously. To babble in another dimension, combinations of beds must be 
wholly rebabbled, at a greater expenditure in time. To maintain an even and 
symmetrical window on the data— exceptions, while interesting, will not be 
considered here— it is necessary to babble by oneacomplete increment in a 
given dimension; however, each dimension is differently defined. 

. In the two-dimensional case, we may define a file as a series of 
parallel streams, each representing a row (or column) of a much larger checker¬ 
board array. We -may also segment the data correspondingly, so (letting "/" 




represent dividers and 
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divide between rows or columns) we may have: 


• A4, A5 / Al, A2, A3 . B4, B5 / Bl, B2, B3 . C4, C5 / Cl, C2, C3 . 

D4, D5 / Dl, D2, D3 
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Thus we may babble in two separate dimensions, which we may here call 
"consecutive" and "broken," depending on whether babble is incremental or 
scattered. Consecutive babble: 

E4, E5 / El, E2, E3 replaces A4 ... A3. 

Broken babble (from four streams): 


a4, A5, a6, A7 / A3 . B4, B5, b6, B 7 / B3 . c4, C5, c6, C7 / C3. 


D4, D5, d6, D7 / D3 

We may also think of this as having two dividers, a "long divider" between 
sections actually consecutive in streams, and a "short divider" within each 
set of elements having to be broken-babbled. 


AA AAA 


B B | B B B . C C | 


CCC . DD DDD 


This is simply seen as equivalent to 


I 

A Ai AAA 
B B,B B B 
C C, C C C 
D Dj DDD 
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Or, considered as a moving window on a large checkerboard, the above doubly- 


numbered example inverts to: 


25 


I 

A3 | A4 A5 A6 
B3 , B4 B5 B6 
C3 C4 C5 C6 
D3 1 D4 D5 D6 


We may also visualize it as follows: 
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The three-dimensional case extends itself obviously, merely 
ther divider: 

// A13, Al4, A15 / Al6 . B13, Bl4, B15 / Bl6 . C13, Cl4, C15 /Cl6 
// A23, A24, A25 / A26 . B23, B24, B25 / B26 . C23, C24, C25 /C26 


//A33, A34, A5 / A6 . B3, b4, B5 / b 6 . C3, c4, C5 / c 6 

In this instance roving may be three-dimensional, regarding the aslash, 
double-slash and vinculum in this arrangement each as a divider which may babble 


V~ tTN 

t*T I 

















O' 0 


*- 


& 


.0 

o 


o * 

u IX 


« r >► 

. U ^ 


s a* 


This has many obvious use^i such as the jtortrayal of three- 
dimensional architecture and the representation of clustered statistical data^ 
on three variables. -■ 
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The Parallel Textface is considered exemplary to the operation 

of this invention because of its generality and complexity. However, certain 

* 

other examples will be tiven of useful employments of the system. 




"The Bicyclist" 

It was earlier stated that this invention provides a generalized 
structure for the transfer of pictorial and textual information. An example 
|may aid in comprehending this. 

Suppose that the user of the system is reading an article 
(or a story) in which bicycles are mentioned. As he throttles forward, and 
the text slides up on the screen, an illustration of a bicyclist can appear 
on the screen, with his legs, and the spokes of the wheels, going 

around rhythmiaily. As he reaches the top of the screen he stops pedalling, 
dismounts momentarily, stands still, and then begins to tap-dance. 

Several mechanisms are employed to get this effect, which is 
|here selected to show several important aspects of the system. 

The spokes of the wheel are handled by separate frames showing 
la succession of radial lines, in one quadrant of the wheel, in animation 
sequence. 

kL 1 ^ 

Sign-changing flips are employed (bits 13-15 of the DINGO "DISPLAY" instruction! 
to fill out the circle by replication of each. 

The pedalling sequence is a cycle of frames showing leg positions 
The top-of-the-screen sequence is another series of frames, 

I babbled in to replace the previous sequence. 
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Expandable Map 11 

It is generally desired to present a map on the screen vhich 

V* 

* 

may be magnified to any degree,- and slid in any compass direction, whether at 
greatest or least magnification or between. 

This is accomplished in the present invention by a pair of 
matched 2-dimensional beds holding matched map-line structures at two successive 
levels of magnification. 

The user may command compass movement with the light-pen, e.g., 

on a compass-rose, and the "zoom" in or out by means of either-directional 

.o 

motion on a control line. 

The DINGO program examines the differential position of the 
controlling light pen and shrinks or expands the picture accordingly, scissoring 

*' O ’ | 

! 

the vectors (through conventional techniques) as required. Only those vectors 
or partial vectors are shown which fit into the given map window at the current 
level of magnification. 
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Walking Net* m Picture Control System 


Another application of the present "invention is also in the area 
of pictorial display, but offers a great variety of potential user choices in 
a simple circumstance. I call this the "walking net" system because control is 
effected through a changing network of choices which step, or "walk," 
around the screen. 

The problem of intricate computer graphics may be phrased as 
follows: given that a digital system can hold a wide variety of graphical 
materials ready to present, how may the user most simply and conveniently 
choose them? Indeed, how may the user keep track of what is happening, where 
he is and where he has been? » o 

The external mechanism I have selected for this facility paradox¬ 
ically combines great versatility for sophisticated presentations with great 
simplicity before the naive user. The idea is this: the user may command a 
continuing succession of changing presentations, making only one simple choice 
at a time, yet receiving intricate and rich animations with extremely clear 
continuity on the screen. 

The exterior mechanism is this: along with an arbitrary graphic 

presentation on the screen, the user is continuously presented with the image 

UUM 

of a forking set of arrows, e.j.*. 
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The pip is a conventional light-pen cursor. The "current shank" is a line 
whose implicit gradations control developments in the picture; and. the choice 
of arrows at the end. of the current shank determine a discrete choice between 
alternatives that are to transpire. 

The user, seizing the pip with the lightpen, moves it (through 
the usual lightpen techniques) sideways along the current shank. Moving it in 
the "forward" direction causes progressive developments in the picture, moving 
it "backward" causes a reversal of animations and other previous developments. 

When the pip reaches the choice point in the forward direction, 
the user may drag it (through the usual lightpen techniques) along either of 
the beckoning alternatives. This then causes further developments in the 
presentation consonant with the line selected. ~ 

"Developments" of the picture here include expansion, contractiOr 
sliding movements and frame-by-frame animation. 

(These materials will have been, of course, explicitly input by 
authors and artists.) 0 

In a sample employment, consider a presentation on the subject 
Of Volcanoes. Let the first shank of the control net control the "rise of a 
volcano from the sea"— an undulating ocean surface pierced first by a wisp of 
smoke, then a growing peak, with rivulets of lava seen to run down its sides 
and darken as they contribute to its growth. 






{Inkle 





/nvolt^ 4 (-5V4 
r»fr€i 


Y U f fc-V 


- 7 ? 








< 


At the end of the first shank, the user may branch to two arrows, 
labelled respectively WORD ORIGIN and INTERIOR. Either option continues the 
presentation without a break, retaining much of the picture on the screen. 
Selection of WORD ORIGIN causes the word VOLCANO to change to VULCAN, and a 
picture of the god Vulcan is seen to seize a lightning bolt rising from the 
crater; text appears to explain this. Alternatively, if the user chooses 
INTERIOR, the tubes and ducts within the volcano appear, and explanatory text 
also. 
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shank.) 


(The path unchosen fades from the screen, as does the previous 


Either of these alternatives may continue with its own 


developments and animations under control of its own shank. 
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Several features of this control application are of special 
interest. One is that the presentation may he continuous in all directions, 
aiding in continuous user orientation. Another is that presentations are 
reversible in various ways, an aid both in user orientation and self-study. 

(Not only is a demonstration reversible within a given shank, but the user may 
back the pip through an intersection into the antecedent shank— 
which reappears at the juncture as the lightpen backs up— and the user may 
continue to reverse the presentation through that preceding shank, or to re-ente 
the intersection and make another choice, "the path not taken.") These 
features allow the user clearly to repeat demonstrations as often as he likes 
and to explore numerous alternatives. 

The displayed control net is thus to be understood as a large 
network of choices, mostly unseen, whose currently visible portion "walks" aroun 
the screen as use progresses. Within this system, then, numerous variants are 
possible. For instance, the currently visible portion of the net may itself 
be whimsically incorporated in a picture, viz.: 
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To accomplish this Walking Net system, this invention's same 
internal techniques are employed in a different configuration. Animation and 
picture-development techniques are all implicit in the TC/PM codes and the 
structure of the DINGO language. It remains for us only to consider here how 
the search and buffering techniques of the present invention contribute to the 
desired result, from which construction techniques for particular presentations 
will be obvious to any skilled practitioner of the arts of digital computer 
animation. 


A simplified stream-structure is employed, having only three 


streams: 
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However, picture-stream P is segmented in such a way as to make babblable 
picture-sections consecutive and contiguous: 


| yU*-£M4 | fctt. / I^cv'iov 


Thus the bed layout has several "P" and "PC" beds to permit simultaneous 
buffering and presentation of different sections of the walking net: 
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Screenmaster SM is here used by DINGO principally for the 
storage of current screen-values, such as locations on the screen which 

- < 

must be commonly addressed by two parts of a picture, and locations of 
node-coordinates for the displayed segment of the control net. 
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OPERATION 


The succession of devices and structures described, set into 
operation, effects the several purposes of the system through a combination 
of techniques. 

The system has several important modes of operation, to be 
described in turn. Foremost are those associated with the operation of the 
Parallel Textface, particularly in its screen motion with displayed linkages; 
but this rests on the performance of all the other subfunctions of the system 
We refer to FIG. 6. 

Search Microprocessor SE P is seen to consist of Read-Only 
Memory R0M1 connected to Rapid-Access Memory RAM and Crum Level Indicator 
Table CLIT. Rapid-Access Memory RAM is also connected to Crum-Level Indicator 
Table CLIT, and to Crum Table CT, Data Buffer DB, Select register SL, and 
Memory Address Register MAR. 

Select Register SL is connected to Floppy Disk FD and Cassette 
CST. Data Buffer DB is connected to Floppy Disk FD and cassette CST; 
information is babbled in from them, in addition to contents of CT and CLIT 
which hold crums and their crum-pointers for all streams, (in a significant 
variation, CT and/or CLIT may be cycled for use among different streams, by 
swapping the contents of CT and CLIT to disk by the usual swapping means. 

Data Buffer DB is also connected to Digital Core Memory DCM, 
to which it furnishes babbled input* 

Rapid-Access Memory RAM stores dividers and temporary operands 
required to work with crums in Crum Table CT and Crum Level Identifier Table 
CLIT. 
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Digital Computer Memory .13M contains, as K a significant part of 


its control circuitry, its Memory Address Register MAR specifying core locations 


to which information is being babbled from Floppy Disk FD, Cassette CST and 


Rapid-Access Memory RAM. Addressable locations of Digital Core Memory DCM, here 


illustrated as subdivided for execution of the Parallel Textface, is partitioned 


into beds enacting the behavior of the first text: Bed T1 holding Text 1, Bed 


TCI holding Text Control 1, Bee PM1 holding Part Map 1, Bed CPM l/2 holding 


Counterpart Map l/2; beds enacting the behavior of the second text: bed T2 


holding Text 2, Bed TC2 holding Text Control 2, Bed PM2 holding Part Map 2, 


Bed CPM 2/1 holding Counterpart Map 2/lj beds enacting the behavior of links: 


Bed LL holding left broken links. Bed LR holding right broken links, and Bed 


LC holding completed links; buffer CMRB the Crum/Meander Repacking Buffer; 


Screenmaster SM; Furniture List F; and DINGO program for Parallel Textface PTP. 


User responses and control actions undertaken with Ligjatpen LP 


and keyboard KB return to Search Microprocessor SE P via keyboard buffer KBB anc 


lightpen buffer LPB, where it initiates action by microprogram lookup in 


Read-Only Memory RQM1 (if, e.g., JOT commands) or passes transparently 

0 

through to RAM (if, e.g., text being inserted). 


Counts required for character or figure displays are transferred 


from DINGO programs or count beds (such as TM), then controlling the transfer 


of picture elements through vector pbuffer VB to CRT control registers OX and 


thus to cathode-ray tube CRT, or character buffer CB to character generator CG 


and thus to cathode-ray tube CRT. During the time-slice here shown, text in 


bed T1 is being displayed serially under count control of textmaster counts in, 


bed TM1. Furniture F is also being shown, and material is being babbled into 
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/bed Tl. 


DINGO program for Parallel Textface PTF goes to Interpretation 
lookup table in Read-Only Memory R0M2, by lookup directing subinstructional 
sequence in Read-Only Memory R0M3. Temporary Operands and "pushed" commands 
are placed on stack STK, from which they are popped as required. 

Vectors from furniture bed F are transferred to Vector Buffer VB 
whence it is transferred to CRT control registers OX and OY, effecting the 
presentation of line-drawings. 
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Search and Retrieval 
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Theory . The principle is that search on a desired stream position 
proceeds downward through the enfilade, counting WIDs and rejecting those which 
sum with their left cousins and brothers to too little or too much to yield the 
desired stream position. 

Crum-blocks, when called, arrive in buffer CMPB; crums saved 
from a crum-block are then moved by microprocessor SEJ*iP to crum table i 

CT, being sandwiched in their place according to Ancestral Order. Left-out 
left brothers are replaced by SEjaP with a left-out pseudo-crum. 

Crum-blocks are repacked as needed in CMPB. 

For stream movement, especially as required by BABBLE, final 
meanders are called sideways, proceeding in a leftward or rightward direction. 
Jumping to cousins when brothers run out. 

The techniques.of roving and babble are executed according to 
the procedures already disclosed. Referring particularly to FIG. l4, we see 
that in forward babble we (A) replace element F with the next stream element, 
and test whether that element F was foot F^, if not return to (A); if so 
reset divider to location of head H and return to (A). 

j 

Babble in the backward direction is effected by setting a 
temporary divider to the anticipated location of the divider on completion of 
the babble, also holding said temporary divider in temporary location TEMP 
(expository label for current description only). We then proceed with normal 
forward babble, moving the temporary divider. When the temporary divider equals 
the real divider, back-babble is complete and the true divider value is 
obtained from TEMP. 
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The principal inner operations of Search Microprocessor Se/^P 
will now he detailed. 

As previously stated, microprocessor SE^P enacts the operations 
of search, retrieval and editing according to the principles already set forth. 
The following procedure-set, encoded into microinstructions in read-only memory 
of Search Microprocessor SE^P, manages the editing and retrieval functions for 
the enfilade system that has been expounded. (The detailed operation of these 
elements is given in the Algol language, the universal language of procedure 
description. The Algol dialect employed is that of the Data General Corporation, 
which has the advantage of allowing the declaration of bit-field, string and 
label variables and arrays, as well as the usual integer and real variables and 
arrays.) 

It will be noted that a crum is referred to by its FAMILYTREE, 
an expression of its exact position in the enfilade as a vector of ordinal 
positions from the top down to its level. The family tree is the general 
referent employed for a crum because the crum's specific CT position is 
assumed to be constantly changing. FAMILYTREE is a vector of integers expressing 
its ordinal position of descent from the zero-crum down. Thus the family tree 
of the seventh bottom crum in FIG. 8 is 0, 4, 4, 3, 0, 0. 

A crum's effective identifier at a given instant is CLT SUBSCRIPT, 
which specifies its position in the CT and its marker's position in the CLIT. 

•(CT and KT are the crum table addressed by different rules of subdivision.) 

The CLIT bits keep track of running operations. DROPBIT 
indicates that a crum and all its children are to be destroyed. CHANGEBIT 
indicates that this crum has been changed. Operation CLEANUP (not shown) 
repacks the crums as ordained by DROPBIT and CHANGEBIT. 
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The procedures here given call each other and are called by 

other programs, notably BABBLE and the edit systems, notably including JOT. 

! 

1. Housekeeping Operations: FAMILYTREE, FFATHERCRUM, CRUMPOSITION, FINDTWIG, 
ZAPOFFSPRING, KILLCRUMS. 


COMMENT: PROCEDURE TO BUILD A FAMILY TR^F^- 
CALLING-SEQUENCE •-/ 

FAMILYTREE (ARRAY, SUBSCRIPT OF CRUM, WORD, ELABEL) 

THE ARRAY SHOULD BE LARGE ENOUGH TO CONTAIN 
THE MAXIMUM NUMBER OF LEVELS 
WORD IS RETURNED WITH THE LEVEL // OF THE CRUM 

WHICH IS THE HIGHEST SUBSCRIPT OF THE ARRAY 
THE ARRAY POSITIONS ARE FILLED IN WITH 'POSITION NUMBER 
AS THE.FATHER SEES THEM; 

BEG,. ’ PROCEDURE FAMILYTREE <ARR, SUBSC, RLEVEL, ELABEL) ‘ 

VALUE SUBSC; 

ARRAY ARR; 

' • INTEGER. ARR,..SUBSC, RLEVEL, I, j;‘ 

LABEL ELABEL; 


.. .RLEVEL ;a CLTCSUBSC3 AND LEVELMASK; 
COMMENT: GET LEVEL OF CRUM; 

. ' Its SUBSC; 


COMMENT 


' FOR j :=* RLEVEL,TO V STEP -1 DO BEGIN 
•- ARRCJ3 := CRUMPOSITION (I, ELABEL);' 

GET POSITION OF CRUM; • 


. ‘-1 :* FFATH ER CR UM(I, ELA B EL); 

COMMENT: GET SUBSCRIPT OF FATHER CRUM; 

END; .... . 

ARRC03 := 1; IF LBOIJND CARR,1) <0 THEN ARRG-13 



:= RLEVEL 


END 
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COMMENT: PROCEDURE TO FIND TO THE FATHER CRUM OF'ANY GIVEN CRUM 
CALLING, SEQUENCE FFATHERCRIJMC I CLAREL3 ) 

• '/WERE "I" IS THE SUBSCRIPT OF THE CLT WORD 

FATHERCRUM IS THE SUBSCRIPT ANSWER-- LABEL IS FOR 
ERROR RETURN; 


BEGIN INTEGER PROCEDURE FFATHERQRUMCI,KLABEL)5 
; • INTEGER I, LEVEL, LEVELS i 

LABEL KLABEL5 '' ' 

VALUE CF). 5 


LEVEL : = 
FOR J := 
LEVEL 2 : 
... . IF LEVELS 

J1:FEATHERCRUM := 
IF LEVEL2 


CLT(I) AND LEVELMASK; 

1-1 TO 0 STEP -1 DO BEGIN 
- ..CLT< I ) AND LEVELMASKJ 
< LEVEL THEN GO TO Jl; END; 

j: . • 

<> LEVEL -1 THEN GO TO KLABEL; 


END; 
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COMMENT: PROCEDURE TO FIND POSITION # OF A CRUM 
• CALLING SEQUENCE— CRUMPOSITIONCSUBSCRIPTC,LABEL3) 
LABEL IS FOR ILLEGITIMATE FATHER; • . 

BEGIN INTEGER. PROCEDURE CRUMPOSITIONCICKLABEL3>; 
VALUE I;. LABEL KLABEL; .. . 

INTEGER I, J, J2, .J3, J4; .. 

J S= .FFATHERCRUM(I,KLABEL); 

J2 ?= 0 ; ..... 

J3 : = . CLTC I 3..AND LEVELMA.SK; 

FOR J4. := J+t TO I STEP 1 .DO. 

IF CLTCJ43 AND.LEVELMASK = ,J3 THEN 

IF' CLTCJ43 AND.LEFTOUTBIT = 0 THEN ‘ . ' 

J2- := J2 +1 ELSE J2 := J2 + <CTC2,J43 AND HW1); 
CRUMROSITION : = J2; . 

DONE:. END; • • 
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COMMENT: PROCEDURE' TO SUPPLY CUT SUBSCRIPT GIVEN A FAMILY TREE 
AND SUBSCRIPT (LEVEL) WANTED 

. CALLING SEQUENCE, " ' 

' ; FINDTWIG (ARRAY, SUBSCRIPT, ELABEL); 

■ BEGIN INTEGER PROCEDURE FINDTWIG (ARR, SUBSC, ELABEL) 

, ARRAY ARR; VALUE ARR, SUBSC; LABEL ELABEL; 

INTEGER ARR, SUBSC, X, .JS, LEVEL, CNT; 


K := -U > 

FOR.I := 0 TO SUBSC STEP .1 DO BEGIN 
JS . :.= K + l; 

J := . ARRCI3; 

CNT := 0; 

FOR K js JS 70 CLTMAX STEP 1 DO BEGIN , • 

LEVEL := CETCK] AND LEVELMASK; 

IF LEVEL := I .THEN IF CLTCKH AND LEFTOUTBIT =3 THEN . 

CNT := .QNT+1 ELSE .CNT := CNT+(CTCR,K3.AND HWl) ELSE 
GO TO l; IF CNT =>JS THEN GO TO 2; 
l: IF LEVEL <1 THEN GO ELABEL; ’ » • * 

2: END; .. .. . ! 

FINDTWIG : = K; END; • 
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COMMENT 

CALLING 

'begin 


PROCEDURE'TO ELIMINATE THE CHILDREN 
SEQUENCE 2AP0FFSPRINGCSUBSCRIPT); 


PROCEDURE 3AP0FFSPRINGC I); 

VALUE I,..J2, J4* J3* J5, j; ' 

INTEGER .1; 

J4 := Q; 

JR. : = ... CLTTI 3 AND LEVELMASK +1; 

'FOR Ji I+l TO CL TM AX STEP.l DO BEGIN;".... 
IF CLTCJ3 AND LEVELMASK <=J2 THEN GO 1; 
I’: IF J4:.' 0 GQ T 0 DONE; 


OF A CRUM 


FOR J3 
FOR J5 
CLTCJ33 

cltmax 


= 1+1 T*> CLTMAX STEP 1 DO . BEGIN 
= ,r TO 4 STEP i DO CTC,J5,J3D := CTCJ5,J3+J43; 
:.= CLT. CJ3+J43; END; 

=.. CLTMAX -J4; 


COMMENT: PROCEDURE TO ELIMINATE A CRUM AND ITS CHILDREN 
CALLING SEQUENCE-- KILLCRUMS(I) 

WHERE "I” IS THE SUBSCRIPT OF THE CLT WORD;. 

BEGIN PROCEDUREJCILLCRUMSCI); INTEGER I, J* jl, LEVEL, 
.LEVEL2; 

. .VALUE I;. . . 

COMMENT:-IF- THE LEFT'ADJACENT CRUM IS A "LEFT OUT” CRUM* THEN. 

THE WID & THE LEFT OUT COUNT ARE ADJUSTED ACCORDINGLY; 

- ‘ • . 

LEVEL := .CLTCl) AND LEVELMASK; : * 

CLTC I ) . CLTC I ) OR DROPBIT; . 

FOR J := .1 + 1 TO CLTMAX STEP 4 D.Q BEGIN . L , ' 

LEVEL2 := CLTCJ) AND LEVEL MASK; 

IF LEVELS <= LEVEL GO TO LFIN; 

CLTCJ) := CLT C.J) OR DROPBIT; END; . ,V. • 

LFIN: IF CLT<I-1) AND DELTAUlT = .0 GO TO LFIN2; . • 

KTC2* 1-1.) := KTC'2,1-1.) + .KTC2,I); . 

CTC2,.I-1.).‘ := CTC2,I-1) +.1 " ' • ' • 

.Jl. :=.J-l „ . • . : ■' V 

LFIN2: FOR K := I..T.Q CLTMAX STEP 1 DO BEQfN r 
CLTCK.X := cltck+jd; - - 

FOR* K1 : = 1 TO 4 STEP 1 DO CTCKlVK) := CTCK1,K+Jl); END; ' 
CLTMAX := CLTMAX -Jl;.' 

;J1 := FFATHERCRUMCI); 

CTC2,Jl) := CTC2,J.l) -1; END; 







2. Crum-cutting operations: CRUMCUT, TEXTSPLIT, CRUMSPLIT. 


COMMENT: PROCEDURE TO CUT A CRUM WHICH POINTS TO ANOTHER CRUM 
CALLING SEQUENCE 

CRUMCUT(I* J) ' ' ' 

WHERE I = SUBSCRIPT if 

J = if CRUMS COING TO FIRST CRUM5 

BEGIN PROCEDURE CRUMCUTCSU8* NU>5 
ARRAY AC 40) . . 

VALUE SUB* NIJ; INTEGERC2) WID* WID2*L0C; 

INTEGER . SUB* NU, F* J2* J* F2*K2*.K3* K4* K5* K*K6* A* 

COMMENT:..F=LEVEL OF CHILDREN;F:=(CLTCSUB3 AND LEVELMASK)+15 
J2: = WI. D:=J3:=0; 

FOR J:=SUB +1 TO CLTMAX STEP 1 DO . 

IF CLTC.J3 AND LEVELMASK =F THEN BEGIN 
COMMENT: WID=SUM OF CHILDREN’S WlDSi 
WID:=WID + KTC2* J3 * . 

IF CLTCJ3 AND LEFT0UTBIT=0' THEN J2:=J2+1 ELSE J2: =J2+CTC2* J3 
AND HWi; 

IF J2:=>NU THEN GO TO 15 
END;. . • . 

1: WIDJ2 := KTC2«* SUB] -WID . * 

LOC: =MEXTLOC; .... ' 

NEXTLOC:=NEXTLOC+1 * 

FOR K:=J+1 TO CLTMAX STEP 1 DO . 1 

IF CLTCK3 .AND LEVELMASK = F THEN GO T© 25 0 

2: F2:=F+l;• . • 

FOR* K2:=X+1 TO CLTMAX STEP 1 DO 
IF CLTCK23.AND LEVELMASK < = F THEN GO TO 35 
,.'3s FOR K3 :=K TO K2 STEP 1. DO . - 

IF CLTCK33 AND LEVELMASK =F2 THEN BEGIN ' 

IF CLTCK33 AND LEFTOUTBIT .<>0 THEN BEGIN . 

LOCPOSSCK* A) 5 J 

I: = CCTC2*K33 AND HWi) -i; ' ... 

COMMENT: OPEN A HOLE FOR LEFT OUT CRUMS; 

FOR .K4: = CLTMAX TO K3 STEP -1 DO BEGIN 

K6: =K4 +15 . ' • 

CLT C X 6 3 :.=CLT C K 4 3 ; . . 

FOR K5; = l TO 4 STRP. 1 DO CTCK5,K63 : = GttK5>'K43; END; 

CLTMAX : = CLTMAX +1; • . 

.LQCPOSF(A) ; 

FIl LREADC.K* NU+J3* A) ; END; 

J3:=.I3+I; 

.FOR KS:=K3 TO K3+I STEP 1. DO’ ' ' '■ ■ ■ . ‘ \ 

CLT C K 5 3 : = F2 OR CHANGER IT; .•. , . 

10COMC A) 5 END; ELSE .13: =,.13+15 END; 

CRUMSP.LITC-K2,.l); r . 

KTC2*K23: = UID2 

CTCt*K23:=LOC * 

CTC2*K23:=.J3+CCTC2*.I3 ( AND BANKMASK) + SHIFTCSHIFTCLOC* - 1 6) *B) 
'CLTC.K2 3t-F OR CHANG EBIT . 

END5 . - •. 




n- 






C.OMMENT: PROCEDURE TO CUT A CRUM WHICH POINTS TO TEXT 
CALLING SEQUENCE 

textsplitci,dwtd> 

'• WHERE I = SUBSCRIPT OF CRUM 
- DWID - # CHARS TO GO TO FIRST CRUM* 


BEGIN PROCEDURE TEXTSPLIT .<I, DWID, MODL, MODR) 

VALUE I,. DWID, MODL,. MOOR; INTEGER(2) DWID, DWID2, LOC 
INTEGER. I, J,..V, V2; • . 

CRUMSPLIT (1,1 )J 

J ! = I +1 5, , _ < « 

KTC2,J3 :=KTC2,.I) -DWID;’ . 

KTC2,U .:= DWID; . ' • . 

DWID2 .;= DWID / 128; . 

LOC.. :.= SHIFT (CTC2,l3,.-8) AND 15; 

V2 := .LOC; 

LOC .:= SHIFTCLQC, 16) + C.TCl, 13 - DWID2; 

CTC.I, J3 ; = . LQC; : ' 

V .:= CTC2,.13; 

CTC2,J3_:.= V AND K70OOO + DWID -DW102 * 128 + SHIFT(V2,8); 
CLTC53 :.= CLTCJ3 OR MODR OR CHANGEBIT* 

CLT.CI3 := CLTCI3 OR MODL OR CHANGE8IT; - 

END; • 


COMMENT: PROCEDURE TO SPLIT A CRUM 
CALLING SEQUENCE 

CRUMSPLIT< 1,12); . . • : • 

BEGIN PROCEDURE CRUMSPLITCI,12); 

VALUE 1,12, INTEGER I,.I2,J,J2; 

CLTMAX. :.= CLTMAX +12; 

FOR J := CLTMAX TO ABS(I) + 12 -1 STEP -1 DO BEGIN 
, FOR JS :■ ITQ4 STEP .1 DO .CT(J2,J) :» CT(J2,J-I2); 
CLT(J). := .CLTC.J-I2); END; 

• IF I .<0 THEN GO TO DONE 
' : •. J2 := FFATHERCRUMCI); 

. CTC2,J2) CTC2,J2) +12; 

’ -v DONE: END; V . ■ , 
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3. Edit executions: EXECUTEDELETE (samt 'as DELEX in JOT), EXECUTESWITCHEROO 
(same as SWEX in JOT). 


COMMENT PROCEDURE' TO EXECUTE A DELETE 

CALLING SEQUENCE ■ • 

EXECUTEDELETE;. .. 

BEGIN PRO.CEDUOE.EXECUTEDELETE;.. 

* ARRAY ARRlC-l:313; ARR2C-1:313;. 

INTEGER l» 12* J* ARR1* ARR2*; Jl, LVL1* LVL2; 

FOR I ;= l .TO CLTMAX DO IF CLT Cl 3.AND DELCUTMASK >0 
THEN GO.TO l; 

1; FOR. I := 1 TO CLTMAX DO IF..CLTCI3 AND DELCUTMASK >0 
THEN GO TO 1; 0 

2: FAMILYTREE (ARRl* I, LVL.l.); 

FAMILYTREE (ARR2/.I2*. LVL2);. . .. 

FOR' J .:= 0' TO IF LVL1 > LVL2 THEN LVL2 ELSE LVL1 DO 
IF ARRl C J3 _<> ARR2.C.J3 THEN GO T.Q 3; »' • 

3; FOR Jl := LVL1-1 TO J STEP -1 DO.. . 
CRUMCUT<FINDTWIG(.ARRl*.Ji >* ARRl CJl + 1 3, 0, DROPBIT); 

FOR Jl LVL2 -1 TO J STEP -1 DO. 

CRUMCUT CFINDTVJIGCARR2* Jl > ARR2CJ1+13* DROPBIT*0) ; 

END; . • 
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